*VERSION = 3.00CArial, 0, 9, 5, 15, 12, 16, 3, 0 Tahoma, 0, 9, 5, 14, 12, 23, 2, 0 frmselapplicationPixelsClass5form tbraatestPixelsClassfrmselapplication U%3X BU(TCvisualfoxpro.applicationNTaC9%%CoExternalVFP.hWndbUT BU OEXTERNALVFPVISIBLESETFOREGROUNDWINDOWHWNDTHISFORMOHWND NHWNDSELECTED CMDCANCELCLICKClick,1qSaAB1z)PROCEDURE Click LOCAL oExternalVFP oExternalVFP = CREATEOBJECT("visualfoxpro.application") oExternalVFP.Visible=.T. *-- Reselect the foreground window SetForegroundWindow(_screen.hwnd) *-- If the VFP doesn't support MSAA(may be VFP6) IF TYPE("oExternalVFP.hWnd") <> "U" Thisform.oHwnd.nhWndSelected = oExternalVFP.hWnd ENDIF Thisform.cmdCancel.Click RETURN ENDPROC Top = 252 Left = 357 Height = 25 Width = 29 FontName = "Tahoma" Picture = fox.bmp Caption = "" TabIndex = 4 Name = "cmdVFP" frmselapplicationcmdVFP commandbutton commandbutton %Pe_U UTHISFORMRELEASEClick,12#).PROCEDURE Click Thisform.Release ENDPROC Top = 252 Left = 282 Height = 25 Width = 68 FontName = "Tahoma" Cancel = .T. Caption = "\ 0 cWName = REPL(CHR(0), 100) GetWindowText(ln_whnd, @cWName,100) cWName = LEFT(cWName, AT(CHR(0), cWName) - 1) IF NOT EMPTY(cWName) AND ; && IsWindowVisible(ln_whnd) <> 0 AND ; && omit invisible windows cWName <> "Program Manager" AND ; && omit prog manager NOT INLIST(ln_wHnd, nExcludeWHnd, _SCREEN.HWnd, _VFP.HWnd) && omit current form and instance INSERT INTO ac_temp VALUES (ln_whnd, cWName) ENDIF ln_whnd= GetWindow(ln_whnd, 2) ENDDO LOCATE FOR ATC("fox", winname) # 0 OR ATC("vfp", winname) # 0 IF NOT FOUND() GO TOP ENDIF ohWnd = NEWOBJECT("custom") ohWnd.AddProperty("nhWndSelected", 0) ofrmSelApp = NEWOBJECT('frmselapplication','aautils', "", ohWnd) ofrmSelApp.Show() nReturn = ohwnd.nhWndSelected ohWnd = Null ofrmSelApp = Null USE IN ac_temp RETURN nReturn ENDPROC PROCEDURE restoresystemtoolbars WITH This LOCAL iIndex FOR iIndex = 1 TO .nSystemToolbars IF .aSysToolbars[iIndex,2] AND ; WEXIST(.aSysToolbars[iIndex,1]) SHOW WINDOW (.aSysToolbars[iIndex,1]) ENDIF ENDFOR ENDWITH ENDPROC PROCEDURE Destroy This.restoresystemtoolbars ENDPROC PROCEDURE Init This.HideSystemToolbars ENDPROC   %) MU 'T Form Designer"TStandard TLayout(TQuery Designer'T View Designer'T Color Palette'T Form Controls+TDatabase Designer)T Report Designer)T Report Controls'T  Print Preview"T Debugger!T Command(*%CCCC Ta,CT-UTHISIINDEX ASYSTOOLBARSNSYSTEMTOOLBARS%Ct % T.hac_tempNC2'| FindWindowExWIN32API"| GetWindow user32.dll(| GetWindowText user32.dll&|IsWindowVisible user32.dllT9 T CTC TCC dQ+'TCC dQCd TCCC =Q%C C  Program Manager C9C rac_tempTC)-CfoxCvfp %C4 f#)TCcustom C nhWndSelected2TCfrmselapplicationaautils CT T TQ BU NEXCLUDEWHND LC_INSTNAMEAC_TEMPHANDLEWINNAME FINDWINDOWEXWIN32API GETWINDOWUSER32DLL GETWINDOWTEXTISWINDOWVISIBLECAPTION LN_APLHANDLN_WHNDCWNAMEHWNDOHWND ADDPROPERTY OFRMSELAPPSHOWNRETURN NHWNDSELECTEDw p(l(%CCC h,CUTHISIINDEXNSYSTEMTOOLBARS ASYSTOOLBARS UTHISRESTORESYSTEMTOOLBARS UTHISHIDESYSTEMTOOLBARShidesystemtoolbars,selapplicationrestoresystemtoolbarsDestroyInit1rRr!qqqq!AABB2qArv$cSA"AQARBQAb"2rAABB221L $@x X qIv K )